home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / mcom103.arc / DISCARD.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1986-02-28  |  506 b   |  21 lines
  1. 10  CLS:LOCATE 15,28:PRINT"Creating Fresh Discard File ..."
  2. 20  CLOSE:I=0
  3. 30  OPEN "GOOD.FIL" FOR APPEND AS #1
  4. 40  OPEN "DISCARD.FIL" FOR INPUT AS #2
  5. 50  INPUT#2,X$,OLD$
  6. 60  WRITE#1,X$,OLD$
  7. 70  CLOSE#1
  8. 80  OPEN "GOOD.FIL" FOR INPUT AS #1
  9. 90  IF EOF(1) THEN GOSUB 170:CLOSE#1:GOTO 80
  10. 100  IF EOF(2) THEN 200
  11. 110  INPUT#2,X$,OLD$
  12. 120  COMP$=RIGHT$(OLD$,8)
  13. 130  IF EOF(1) THEN GOSUB 170::GOTO 80
  14. 140  INPUT#1,Y$,GOOD$
  15. 150  GOOD$=RIGHT$(GOOD$,8)
  16. 160  IF COMP$=GOOD$ THEN I=I+1:CLOSE#1:GOTO 80 ELSE 130
  17. 170  CLOSE #1:OPEN "GOOD.FIL" FOR APPEND AS #1
  18. 180  WRITE#1,X$,OLD$
  19. 190  CLOSE#1:RETURN
  20. 200  LOCATE 15,28:PRINT"  ";:PRINT USING "##";I;:PRINT" Duplicate #'s Found  "
  21.